home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / modulesmc.lha / ModulesMC1 / interval.e < prev    next >
Encoding:
Text File  |  1994-11-03  |  666 b   |  25 lines
  1.  
  2. OPT MODULE
  3. OPT EXPORT
  4. DEF currentsecs, currentmicros
  5.  
  6. /* To initialize, or to reset time to 0, call interval(TRUE).
  7.    To display interval, call interval(). Calling interval()
  8.    again will display elapsed time since previous call.  */
  9.  
  10. PROC interval(start=FALSE)
  11. DEF oldsecs, oldmicros
  12.   IF start=FALSE
  13.     oldsecs:=currentsecs; oldmicros:=currentmicros
  14.     CurrentTime({currentsecs},{currentmicros})
  15.     IF currentmicros<oldmicros
  16.       oldsecs:=oldsecs+1; oldmicros:=oldmicros-1000000
  17.     ENDIF
  18.     WriteF('Elapsed time \d.\z\d[6]\n',currentsecs-oldsecs,
  19.                        currentmicros-oldmicros)
  20.   ELSE
  21.     CurrentTime({currentsecs},{currentmicros})
  22.  
  23.   ENDIF
  24. ENDPROC
  25.